(Fread_file_name_internal): Pass Vread_file_name_predicate

to Ffile_name_completion.

diff --git a/src/fileio.c b/src/fileio.c
index 50c5a40e6b2f2ab7841261571c6e35ab6d397f16..3392a47be098516635c194d47aa4244938ae8b77 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -6159,7 +6159,7 @@ DEFUN ("read-file-name-internal", Fread_file_name_internal, Sread_file_name_inte
   if (NILP (action))
     {
       specdir = Ffile_name_directory (string);
-      val = Ffile_name_completion (name, realdir);
+      val = Ffile_name_completion (name, realdir, Vread_file_name_predicate);
       UNGCPRO;
       if (!STRINGP (val))
        {